n_dec = 2.
      nprice = L_S_ZPO_PROFORMA_BIW-NETPR.
      select single CURRDEC
        into n_dec
        from TCURX
        where CURRKEY = L_S_ZPO_PROFORMA_BIW-WAERS.

      if n_dec = 0.
        nprice = nprice * 100.
      else.
        if n_dec = 1.
          nprice = nprice * 10.
        else.

          if n_dec = 3.
            nprice = nprice / 10.
            else.
          endif.
        endif.
      endif.
      L_S_ZPO_PROFORMA_BIW-NETPR = nprice.
